(oblookup): Clear ARRAY_MARK_FLAG in obsize.

diff --git a/src/lread.c b/src/lread.c
index c1de692edfd676ac3f9e5d3087d7bf205b44c40b..67d2b7fee21a45d2522aa55391d0283fdc8c9315 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1961,6 +1961,8 @@ oblookup (obarray, ptr, size)
       obarray = check_obarray (obarray);
       obsize = XVECTOR (obarray)->size;
     }
+  /* This is sometimes needed in the middle of GC.  */
+  obsize &= ~ARRAY_MARK_FLAG;
   /* Combining next two lines breaks VMS C 2.3.  */
   hash = hash_string (ptr, size);
   hash %= obsize;